home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Basic_Plus_Examples / NUMDIAL < prev    next >
Encoding:
Text File  |  2005-03-02  |  631 b   |  21 lines
  1. 10  ! ***************************************
  2. 20  ! Example: NUMBER Dialog
  3. 30  !
  4. 40  ! This program produces a NUMBER dialog and
  5. 50  ! prompts the user for a number. The number
  6. 60  ! entered is displayed.
  7. 70  !
  8. 80  ! *****************************************
  9. 90  !
  10. 100       INTEGER Btn
  11. 110       DIM P$[25]
  12. 120       P$="Please input a number:"
  13. 130       DIALOG "NUMBER",P$,Btn;SET ("TITLE":" Example: NUMBER Dialog"),RETURN ("VALUE":X)
  14. 140       SELECT Btn
  15. 150       CASE 0
  16. 160           DISP "Number entered:",X
  17. 170       CASE 1
  18. 180           DISP "Numeric input canceled"
  19. 190       END SELECT
  20. 200       END
  21.